home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source1.lha / source / amiga / Bullet.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.3 KB  |  87 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: Bullet.mod $
  4.   Description: Interface to bullet.library
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.6 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   $VER: bullet_protos.h 38.0 (19.6.92)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1990-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A Interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. *************************************************************************)
  22.  
  23. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  24. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  25. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  26.  
  27. MODULE [2] Bullet;
  28.  
  29. IMPORT SYS := SYSTEM, Kernel, e := Exec, u := Utility, df := DiskFont;
  30.  
  31.  
  32. (**-- Library Base variable --------------------------------------------*)
  33.  
  34. CONST
  35.  
  36.   bulletName * = "bullet.library";
  37.  
  38. VAR
  39.  
  40.   base* : e.LibraryPtr;
  41.  
  42.  
  43. (**-- Library Functions ------------------------------------------------*)
  44.  
  45. PROCEDURE OpenEngine* [base,-30] ()
  46.   : df.GlyphEnginePtr;
  47. PROCEDURE CloseEngine* [base,-36]
  48.   ( glyphEngine [8] : df.GlyphEnginePtr );
  49. PROCEDURE SetInfoA* [base,-42]
  50.   ( glyphEngine [8] : df.GlyphEnginePtr;
  51.     tagList     [9] : ARRAY OF u.TagItem )
  52.   : BOOLEAN;
  53. PROCEDURE SetInfo* [base,-42]
  54.   ( glyphEngine [8]  : df.GlyphEnginePtr;
  55.     tagList     [9]..: u.Tag )
  56.   : BOOLEAN;
  57. PROCEDURE ObtainInfoA* [base,-48]
  58.   ( glyphEngine [8] : df.GlyphEnginePtr;
  59.     tagList     [9] : ARRAY OF u.TagItem )
  60.   : BOOLEAN;
  61. PROCEDURE ObtainInfo* [base,-48]
  62.   ( glyphEngine [8]  : df.GlyphEnginePtr;
  63.     tagList     [9]..: u.Tag )
  64.   : BOOLEAN;
  65. PROCEDURE ReleaseInfoA* [base,-54]
  66.   ( glyphEngine [8] : df.GlyphEnginePtr;
  67.     tagList     [9] : ARRAY OF u.TagItem )
  68.   : BOOLEAN;
  69. PROCEDURE ReleaseInfo* [base,-54]
  70.   ( glyphEngine [8]  : df.GlyphEnginePtr;
  71.     tagList     [9]..: u.Tag )
  72.   : BOOLEAN;
  73.  
  74. (**-- Library Base variable --------------------------------------------*)
  75.  
  76. (**-----------------------------------*)
  77. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  78.  
  79. BEGIN (* CloseLib *)
  80.   IF base # NIL THEN e.CloseLibrary (base) END
  81. END CloseLib;
  82.  
  83. BEGIN
  84.   base := e.OpenLibrary (bulletName, e.libraryMinimum);
  85.   IF base # NIL THEN Kernel.SetCleanup (CloseLib) END
  86. END Bullet.
  87.